home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / cboot.d64 / mount.l < prev    next >
Text File  |  2009-01-23  |  1KB  |  47 lines
  1. 0010 // EMULATE OBJ_LOAD FUNCTION
  2. 0020 // (C)1984  W. LOUIE  05/26/84
  3. 0030 //
  4. 0040 // WALLACE LOUIE
  5. 0050 // 3407  AVENUE 'S'
  6. 0060 // BROOKLYN, N.Y. 11234
  7. 0070 //
  8. 0080 //
  9. 0090 PROC OBJ_LOAD(FILENAME$,DEVICE) CLOSED
  10. 0100 FOR I:=1 TO LEN(FILENAME$) DO
  11. 0110 POKE 827+I,ORD(FILENAME$(I))
  12. 0120 ENDFOR I
  13. 0130 POKE 850,169 //   LDA
  14. 0140 POKE 851,DEVICE
  15. 0150 POKE 852,170 //   TAX
  16. 0160 POKE 853,160 //   LDY #$FF
  17. 0170 POKE 854,255
  18. 0180 POKE 855,32 //    JSR $FFBA
  19. 0190 POKE 856,186
  20. 0200 POKE 857,255
  21. 0210 POKE 858,169 //   LDA
  22. 0220 POKE 859,LEN(FILENAME$)
  23. 0230 POKE 860,162 //   LDX #$3C
  24. 0240 POKE 861,60
  25. 0250 POKE 862,160 //   LDY #$03
  26. 0260 POKE 863,3
  27. 0270 POKE 864,32 //    JSR $FFBD
  28. 0280 POKE 865,189
  29. 0290 POKE 866,255
  30. 0300 POKE 867,169 //   LDA #$00
  31. 0310 POKE 868,0
  32. 0320 POKE 869,162 //   LDX #$FF
  33. 0330 POKE 870,255
  34. 0340 POKE 871,160 //   LDY #$FF
  35. 0350 POKE 872,255
  36. 0360 POKE 873,32 //    JSR $FFD5
  37. 0370 POKE 874,213
  38. 0380 POKE 875,255
  39. 0390 POKE 876,169 //   LDA
  40. 0400 POKE 877,DEVICE
  41. 0410 POKE 878,32 //    JSR $FFC3
  42. 0420 POKE 879,195
  43. 0430 POKE 880,255
  44. 0440 POKE 881,96 //    RTS
  45. 0450 SYS 850
  46. 0460 ENDPROC OBJ_LOAD
  47.